﻿Namespace ViewModel

    Public Class SettingWindowViewModel
        Inherits ViewModelbase

        Private _ScreenNo As Integer = 0
        Public Property ScreenNo As Integer
            Get
                Return _ScreenNo
            End Get
            Set(ByVal value As Integer)
                If _ScreenNo <> value Then
                    OnPropertyChanged("ScreenNo")
                    _ScreenNo = value
                End If
            End Set
        End Property

        Private _Duration As Integer = 8
        Public Property Duration As Integer
            Get
                Return _Duration
            End Get
            Set(ByVal value As Integer)
                If _Duration <> value Then
                    OnPropertyChanged("Duration")
                    _Duration = value
                End If
            End Set
        End Property

        Private _SmallFontSize As Integer = 62
        Public Property SmallFontSize As Integer
            Get
                Return _SmallFontSize
            End Get
            Set(ByVal value As Integer)
                If _SmallFontSize <> value AndAlso value > 0 Then
                    OnPropertyChanged("SmallFontSize")
                    _SmallFontSize = value
                End If
            End Set
        End Property

        Private _NormalFontSize As Integer = 68
        Public Property NormalFontSize As Integer
            Get
                Return _NormalFontSize
            End Get
            Set(ByVal value As Integer)
                If _NormalFontSize <> value AndAlso value > 0 Then
                    OnPropertyChanged("NormalFontSize")
                    _NormalFontSize = value
                End If
            End Set
        End Property

        Private _LargeFontSize As Integer = 84
        Public Property LargeFontSize As Integer
            Get
                Return _LargeFontSize
            End Get
            Set(ByVal value As Integer)
                If _LargeFontSize <> value AndAlso value > 0 Then
                    OnPropertyChanged("LargeFontSize")
                    _LargeFontSize = value
                End If
            End Set
        End Property

    End Class

End Namespace
